home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / cheesesauce / backscr < prev    next >
Text File  |  1997-11-28  |  2KB  |  158 lines
  1.  
  2. putinlargescr:
  3.  
  4.  move.l #$1000000,statskip
  5.  move.l #$fffffffe,statskip+4
  6.  
  7.  move.l #healthpal,a5
  8.  move.l COPSCRN1,a0
  9.  move.l COPSCRN2,a2
  10.  move.w #scrheight-1,d0
  11.  move.l #0,d6
  12.  move.w #0,d3
  13.  move.w #$29df,startwait
  14.  move.w #$2b01,endwait
  15. .fillcop
  16.  move.w #$180,d1
  17.  
  18.  move.l a0,a1
  19.  move.l a2,a3
  20.  move.w #$10c,(a1)+
  21.  move.w #$10c,(a3)+
  22.  move.w d3,(a1)+
  23.  move.w d3,(a3)+
  24.  eor.w #$8000,d3
  25.  
  26.  move.w #$106,(a1)+
  27.  move.w #$106,(a3)+
  28.  move.w #$2c42,d5
  29.  or.w d3,d5
  30.  and.w #$fffe,d5
  31.  move.w d5,(a1)+
  32.  move.w d5,(a3)+
  33.  bsr do32
  34.  
  35.  move.w #$106,(a1)+
  36.  move.w #$106,(a3)+
  37.  move.w #$4c42,d5
  38.  or.w d3,d5
  39.  and.w #$fffe,d5
  40.  move.w d5,(a1)+
  41.  move.w d5,(a3)+
  42.  bsr do32
  43.  
  44.  move.w #$106,(a1)+
  45.  move.w #$106,(a3)+
  46.  move.w #$6c42,d5
  47.  or.w d3,d5
  48.  and.w #$fffe,d5
  49.  move.w d5,(a1)+
  50.  move.w d5,(a3)+
  51.  bsr do32
  52.  
  53.  move.w startwait,(a1)+
  54.  move.w #$fffe,(a1)+
  55.  move.w endwait,(a1)+
  56.  move.w #$ff00,(a1)+
  57.  move.w startwait,(a3)+
  58.  move.w #$fffe,(a3)+
  59.  move.w endwait,(a3)+
  60.  move.w #$ff00,(a3)+
  61.  
  62.  
  63.  add.w #$300,startwait
  64.  add.w #$300,endwait
  65.  
  66. ; move.l #$1060c42,(a1)+
  67. ; move.l #$1060c42,(a3)+
  68. ; move.w #$19e,(a1)+
  69. ; move.w (a5),(a1)+
  70. ; move.w #$19e,(a3)+
  71. ; move.w (a5)+,(a3)+
  72.  
  73. **********************************
  74.  
  75.  adda.w #104*4,a0
  76.  adda.w #104*4,a2
  77.  dbra d0,.fillcop
  78.  
  79.  move.w #$38,fetchstart
  80.  move.w #$b8,fetchstop
  81.  move.w #$2c81,winstart
  82.  move.w #$2cc1,winstop
  83.  move.w #-40,modulo
  84.  move.w #-40,modulo+4
  85.  
  86.  move.l #nullspr,d0
  87.  move.w d0,s0l
  88.  move.w d0,s1l
  89.  move.w d0,s2l
  90.  move.w d0,s3l
  91.  move.w d0,s4l
  92.  move.w d0,s5l
  93.  move.w d0,s6l
  94.  move.w d0,s7l
  95.  swap d0
  96.  move.w d0,s0h
  97.  move.w d0,s1h
  98.  move.w d0,s2h
  99.  move.w d0,s3h
  100.  move.w d0,s4h
  101.  move.w d0,s5h
  102.  move.w d0,s6h
  103.  move.w d0,s7h 
  104.  
  105.  move.l #scrn+40,a0
  106.  move.l #scrn+160,a1
  107.  move.l #scrn+280,a2
  108.  move.l #scrntab,a3
  109.  move.w #319,d7    ; counter
  110.  move.w #0,d1    ; xpos
  111. .plotscrnloop:
  112.  move.b (a3)+,d0
  113.  move.w d1,d2
  114.  asr.w #3,d2
  115.  move.b d1,d3
  116.  not.b d3
  117.  bclr.b d3,-40(a0,d2.w)
  118.  bclr.b d3,(a0,d2.w)
  119.  bclr.b d3,40(a0,d2.w)
  120.  bclr.b d3,-40(a1,d2.w)
  121.  bclr.b d3,(a1,d2.w)
  122.  bclr.b d3,40(a1,d2.w)
  123.  bclr.b d3,-40(a2,d2.w)
  124.  btst #0,d0
  125.  beq.s .nobp1
  126.  bset.b d3,-40(a0,d2.w)
  127. .nobp1:
  128.  btst #1,d0
  129.  beq.s .nobp2
  130.  bset.b d3,(a0,d2.w)
  131. .nobp2:
  132.  btst #2,d0
  133.  beq.s .nobp3
  134.  bset.b d3,40(a0,d2.w)
  135. .nobp3:
  136.  btst #3,d0
  137.  beq.s .nobp4
  138.  bset.b d3,-40(a1,d2.w)
  139. .nobp4:
  140.  btst #4,d0
  141.  beq.s .nobp5
  142.  bset.b d3,(a1,d2.w)
  143. .nobp5:
  144.  btst #5,d0
  145.  beq.s .nobp6
  146.  bset.b d3,40(a1,d2.w)
  147. .nobp6:
  148.  btst #6,d0
  149.  beq.s .nobp7
  150.  bset.b d3,-40(a2,d2.w)
  151. .nobp7:
  152.  
  153.  addq #1,d1
  154.  
  155.  dbra d7,.plotscrnloop
  156.  
  157.  rts
  158.